home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 June: Reference Library / Dev.CD Jun 94.toast / Periodicals / develop / develop Issue 12 / develop 12 code / Globals in Standalone Code / StART ƒ / StART.p < prev    next >
Encoding:
Text File  |  1992-10-16  |  273 b   |  20 lines  |  [TEXT/MPS ]
  1. UNIT StART;
  2.  
  3.     INTERFACE
  4.  
  5.         USES Types;
  6.         
  7.         TYPE
  8.             SaveA5Rec = RECORD
  9.                 oldA5:            Ptr;
  10.                 oldCurrentA5:    Ptr;
  11.             END;
  12.  
  13.         PROCEDURE UseGlobals(VAR save: SaveA5Rec);
  14.  
  15.         PROCEDURE CopyHostQD(thePort: Ptr; oldA5: Ptr);
  16.  
  17.         PROCEDURE DoneWithGlobals(restore: SaveA5Rec);
  18.  
  19. END.
  20.